home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)tt.d64 / paddl test.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  504b  |  22 lines
  1. 10 C=12*4096
  2. 15 FORJ=0TO63:READA:POKEC+J,A:NEXT
  3. 20 SYSC
  4. 30 P1=PEEK(C+257)
  5. 40 P2=PEEK(C+258)
  6. 50 P3=PEEK(C+259)
  7. 60 P4=PEEK(C+260)
  8. 70 PRINT"[147]":GOSUB150
  9. 80 FORJ=1TO50:NEXT
  10. 90 GOTO20
  11. 100 DATA162,1,120,173,2,220,141,0,193,169,192,141,2,220,169
  12. 110 DATA128,141,0,220,160,128,234,136,16,252,173,25,212,157
  13. 120 DATA1,193,173,26,212,157,3,193,173,0,220,9,128,141,5,193
  14. 130 DATA169,64,202,16,222,173,0,193,141,2,220,173,1,220,141
  15. 140 DATA6,193,88,96
  16. 150 X=INT(P1/5.275):IFX>39THENX=39
  17. 160 IFX<0THENX=0
  18. 170 Y=INT(P3/8.44):IFY>24THENY=24
  19. 180 IFY<0THENY=0
  20. 190 POKE1024+X+Y*40,81
  21. 200 RETURN
  22.